home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 70 / Mac Magazin CD 70.iso / macware / MacGhostView Folder / lib / type1enc.ps < prev    next >
Encoding:
Text File  |  2000-03-26  |  2.7 KB  |  68 lines  |  [TEXT/R*ch]
  1. %    Copyright (C) 1992, 1993 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: type1enc.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % type1enc.ps
  20. % PostScript language versions of the Type 1 encryption/decryption algorithms.
  21.  
  22. % This file is normally not needed with Ghostscript, since Ghostscript
  23. % implements these algorithms in C.  For the specifications, see Chapter 7 of
  24. % "Adobe Type 1 Font Format," ISBN 0-201-57044-0, published by Addison-Wesley.
  25.  
  26. /.type1crypt    % <R> <from> <to> <proc> .type1crypt <R'> <to>
  27.         % (auxiliary procedure)
  28.  { 4 1 roll
  29.    0 2 index length getinterval
  30.    0 1 2 index length 1 sub
  31.     {        % Stack: proc R from to index
  32.       2 index 1 index get            % proc R from to index C/P
  33.       4 index -8 bitshift xor 3 copy put    % proc R from to index P/C
  34.       5 index exec                % proc R from to C
  35.  
  36. %        Compute R' = ((R + C) * 52845 + 22719) mod 65536
  37. %        without exceeding a 31-bit integer magnitude, given that
  38. %        0 <= R <= 65535 and 0 <= C <= 255.
  39.  
  40.       4 -1 roll add
  41.       dup 20077 mul    % 52845 - 32768
  42.       exch 1 and 15 bitshift add    % only care about 16 low-order bits
  43.       22719 add 65535 and 3 1 roll
  44.     }
  45.    for exch pop 3 -1 roll pop
  46.  } bind def
  47.  
  48. % <state> <fromString> <toString> .type1encrypt <newState> <toSubstring>
  49. %    Encrypts fromString according to the algorithm for Adobe
  50. %      Type 1 fonts, writing the result into toString.
  51. %      toString must be at least as long as fromString or a
  52. %      rangecheck error occurs.  state is the initial state of
  53. %      the encryption algorithm (a 16-bit non-negative
  54. %      integer); newState is the new state of the algorithm.
  55.  
  56. /.type1encrypt
  57.  { { exch pop } .type1crypt
  58.  } bind def
  59.  
  60. % <state> <fromString> <toString> .type1decrypt <newState> <toSubstring>
  61. %    Decrypts fromString according to the algorithm for Adobe
  62. %      Type 1 fonts, writing the result into toString.  Other
  63. %      specifications are as for type1encrypt.
  64.  
  65. /.type1decrypt
  66.  { { pop 2 index exch get } .type1crypt
  67.  } bind def
  68.